home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_28_(10-1984).d64 / learn count_64 (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  62 lines
  1. 28 POKE788,52:POKE53281,0:POKE53280,0:S=54272
  2. 30 PRINT"[147]"TAB(11)"LEARNING TO COUNT"
  3. 35 FORL=STOS+24:POKEL,O:NEXT:POKES+5,14:POKES+9,240:POKES+24,15:HF=S+1:LF=S
  4. 40 Z=1024:C=0:COL=S:DL(1)=10:DL(2)=25:DL(3)=35:DL(4)=50
  5. 50 FORI=0TO39:READA:READB:POKEZ+I,A:POKEZ+I+COL,B:GOSUB5000:FORT=1TO75:NEXT
  6. 52 IFB=5THENRESTORE
  7. 53 NEXT
  8. 54 FORI=0TO39:READA:READB:POKEZ+960+I,A:POKEZ+960+I+COL,B:GOSUB5000
  9. 55 FORT=1TO75:NEXT:IFB=5THENRESTORE
  10. 56 NEXT
  11. 57 FORI=0TO24:READA:READB:POKEZ+40*I,A:POKEZ+40*I+COL,B:GOSUB5000
  12. 58 FORT=1TO75:NEXT:IFB=5THENRESTORE
  13. 59 NEXT
  14. 60 FORI=0TO24:READA:READB:POKEZ+39+40*I,A:POKEZ+39+40*I+COLL,B:GOSUB5000
  15. 61 FORT=1TO75:NEXT:IFB=5THENRESTORE
  16. 62 NEXT:FORT=1TO2500:NEXT
  17. 70 PRINTCHR$(147):PRINT"    LEARNING TO COUNT[146] CAN HELP YOU"
  18. 72 PRINT"    LEARN TO COUNT UP TO 50."
  19. 73 PRINT"    ENTER 1[146], 2[146], 3[146], OR 4[146]."
  20. 75 PRINT"     UP TO 10---1[146]":PRINT"     UP TO 25---2[146]"
  21. 76 PRINT"     UP TO 35---3[146]":PRINT"     UP TO 50---4[146][145][145][145]";
  22. 80 INPUTD$:D=VAL(D$):IFD<1ORD>4THEN70
  23. 100 R=0:W=0:N=0:X=DL(D):PRINT"[147]"
  24. 206 A=(INT(X*RND(1)))*2:IFA/2+1=1THEN206
  25. 210 N=N+1:RESTORE:SCR=1304
  26. 220 FORH=0TOASTEP2:C=0
  27. 225 READL:M=INT(RND(0)*15)+1
  28. 226 IFL=5THENRESTORE
  29. 230 POKESCR+H,L:POKESCR+COL+H,M:FORT=1TO75:NEXT:GOSUB5000:FORT=1TO350:NEXT
  30. 232 IFH=39THENSCR=SCR+80
  31. 238 NEXT
  32. 239 PRINT"          ENTER 0[146] TO START OVER.":POKE198,0
  33. 240 PRINT"                ";:INPUT"  HOW MANY";Y$
  34. 245 IFY$="0"THENN=N-1:GOTO3000
  35. 250 Y=VAL(Y$)
  36. 260 IFY=H/2THENGOSUB2000:R=R+1:PRINTCHR$(147):GOTO206
  37. 270 C=C+1:IFC=3THENGOTO2500
  38. 280 PRINT"SORRY! TRY AGAIN.":FORT=1TO1700:NEXT:GOSUB4000:GOTO240
  39. 2000 PRINT"[147]"TAB(6)"    [209][209][209][209][209]        [209][209][209][209][209] "
  40. 2001 PRINTTAB(6)"   [209]     [209]      [209]     [209]"
  41. 2002 PRINTTAB(6)"     [166][166][166]          [166][166][166]  "
  42. 2003 PRINTTAB(6)"     [166][166][166]          [166][166][166] "
  43. 2004 PRINTTAB(6)"           [166][166][166][166]        "
  44. 2005 PRINTTAB(6)"[159]  [166]        [166][166][166][166]        [159][166]"
  45. 2006 PRINTTAB(6)"  [166]                    [166]"
  46. 2007 PRINTTAB(6)"   [166]                  [166] "
  47. 2008 PRINTTAB(6)"    [166]                [166]  "
  48. 2009 PRINTTAB(6)"     [166]              [166]   "
  49. 2010 PRINTTAB(6)"      [166]            [166]    "
  50. 2011 PRINTTAB(6)"       [166][166][166][166][166][166][166][166][166][166][166][166]     "
  51. 2020 GOSUB5010:RETURN
  52. 2500 PRINT"[147]"TAB(16)"WRONG![146]"
  53. 2510 PRINT""TAB(9)"THERE WERE";H/2;"[157] OBJECTS[146]"
  54. 2520 FORT=1TO800:NEXT:FORT=1TO3500:NEXT:PRINTCHR$(147):W=W+1:GOTO206
  55. 3000 PRINT"[147]"TAB(10)"YOU HAD:";N;"TRYS":PRINT""TAB(18);R;"RIGHT"
  56. 3010 PRINT""TAB(18);W;"WRONG":FORT=1TO4000:NEXT:RESTORE:GOTO50
  57. 4000 PRINT"                    ";:RETURN
  58. 5000 POKES+4,17:POKEHF,INT(RND(0)*50)+80:POKELF,250:POKES+4,16:RETURN
  59. 5010 POKES+4,17:FORM=70TO116STEP2:POKEHF,M:POKELF,INT(M/2):FORDL=1TO40:NEXT
  60. 5020 NEXT:POKES+4,16:RETURN
  61. 9000 DATA81,1,65,2,83,3,90,4,88,5,90,6,102,7,42,1,35,2,36,3,38,4,1,5
  62.